@@ -1,5 +1,11 @@
 Revision history for Perl extension CGI::Application::Dispatch.
 
+2.17 Dec 30, 2009
+
+    - Update examples to use FindBin::Real instead of FindBin, since FindBin is not 
+      fully mod_perl compatible. (Mark Stosberg)
+    - Fix typo in POD (Alexander Becker) 
+
 2.16 Mar 23, 2009
     - Fix: "$app->run() error handler breaks exception objects." RT#43340 (dekimsey)
     - Documentation improvements (Dave Baker, thinc)

@@ -1,10 +1,12 @@
 ---
 name: CGI-Application-Dispatch
-version: 2.16
+version: 2.17
 author:
   - 'Michael Peters <mpeters@plusthree.com>'
 abstract: Dispatch requests to CGI::Application based objects
 license: perl
+resources:
+  license: http://dev.perl.org/licenses/
 requires:
   CGI::Application: 3.2
   Exception::Class: 0
@@ -13,16 +15,14 @@ requires:
 build_requires:
   Test::LongString: 0
   Test::More: 0
-generated_by: Module::Build version 0.32
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
 provides:
   CGI::Application::Dispatch:
     file: lib/CGI/Application/Dispatch.pm
-    version: 2.16
+    version: 2.17
   CGI::Application::Dispatch::Regexp:
     file: lib/CGI/Application/Dispatch/Regexp.pm
     version: 2.13
-resources:
-  license: ~
+generated_by: Module::Build version 0.3
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.2.html
+  version: 1.2

@@ -4,7 +4,7 @@ use warnings;
 use Carp qw(carp cluck);
 use Exception::Class::TryCatch qw(catch);
 
-our $VERSION = '2.16';
+our $VERSION = '2.17';
 our $DEBUG   = 0;
 
 BEGIN {
@@ -67,8 +67,8 @@ This would be the instance script for your application, such
 as /cgi-bin/dispatch.cgi:
 
     #!/usr/bin/perl
-    use FindBin '$Bin';
-    use lib "$Bin/../../rel/path/to/my/perllib";
+    use FindBin::Real 'Bin';
+    use lib Bin() . '/../../rel/path/to/my/perllib';
     use CGI::Application::Dispatch;
     CGI::Application::Dispatch->dispatch();
 
@@ -101,8 +101,8 @@ This would be the instance script for your application, such
 as /cgi-bin/dispatch.cgi:
 
     #!/usr/bin/perl
-    use FindBin '$Bin';
-    use lib "$Bin/../../rel/path/to/my/perllib";
+    use FindBin::Real 'Bin';
+    use lib Bin() . '/../../rel/path/to/my/perllib';
     use MyApp::Dispatch;
     MyApp::Dispatch->dispatch();
 
@@ -951,7 +951,7 @@ Sometimes it's easiest to explain with an example, so here you go:
         'date/:year/:month?/:day?' => {
             app         => 'Blog',
             rm          => 'by_date',
-            args_to_new => { TMPL_PATH = "events/" },
+            args_to_new => { TMPL_PATH => "events/" },
         },
     ]
   );